home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t3.d64 / alarmclock.c (.txt) next >
Commodore BASIC  |  2007-02-04  |  2KB  |  51 lines
  1. 10 GOSUB 9000
  2. 20 PRINT"[147]**TIMES WAITS FOR NO MAN  **
  3. 30 [153]"CLOCK INSTRUCTIONS:"
  4. 40 [153]"SYS 832 : TURN ON DISPLAY
  5. 50 PRINT"SYS 994:  TURN OFF DISPLAY
  6. 60 [153]"POKE 982,N: CHANGE COLOUR
  7. 70 PRINT"GOSUB 9140:RESET ALARM
  8. 80 [153]"F1:     TURN OFF ALARM
  9. 90 GOSUB 9140:END: REM SET OR RESET ALARM
  10. 8990 REM BALANCE ARE SUBS THAT CAN BE USED ALONE
  11. 9000 CH=0:FORI=832TO1008
  12. 9010 READA:POKEI,A:CH=CH+A:NEXT
  13. 9015 FORI=679TO744:READA:POKEI,A:CH=CH+A:NEXT
  14. 9020 IFCH-23614THENPRINT"WHOA...DATA ERROR:STOP:NOTE CHECKSUM
  15. 9030 [133]"LOADIS IT AM OR PM";A$:[133]"AND THE HOUR";H
  16. 9040 [153]"ENTER THE NEXT MINUTE;":[153]"PRESS 'RETURN' TO START CLOCK:
  17. 9050 IFH>12THENP$="P":H=H-12:GOTO9050
  18. 9060 IFH>9THENH=H+6
  19. 9070 IFLEFT$(A$,1)="P"THENH=H+128
  20. 9080 C=56328:POKEC+3,H:POKEC+1,0
  21. 9090 INPUTM:M=M+INT(M/10)*6
  22. 9100 POKEC+2,M:POKEC,0:SYS832:PRINT"IF NOT OK, PRESS ANY KEY
  23. 9110 [129]I[178]1[164]1000:[139][194](198)[167][151]198,0:[158]994:[137]9030
  24. 9120 [130]:[142]
  25. 9140 [153]"WHAT TIME WOULD YOU LIKE THE ALARM?
  26. 9145 INPUT"AM OR PM";A$:A$=LEFT$(A$,1)
  27. 9150 INPUT"THE HOUR";H
  28. 9155 IFH>12THENA$="P":H=H-12:GOTO 9155
  29. 9160 H=H-6*(H>9)-128*(A$="P"):REM CONVERT TO BCD AND ADD AM/PM INDICATOR
  30. 9165 INPUT"THE MINUTE";M
  31. 9170 M=M+INT(M/10)*6
  32. 9175 C=56328:POKEC+7,136:POKEC+3,H:POKEC+2,M:POKEC,1:POKEC+7,8:REM ALARM
  33. 9180 POKE54273,99:POKE54728,240:POKE54276,21
  34. 9185 POKE54728,2:POKE54290,17:REM SOUND
  35. 9190 RETURN
  36. 9200 DATA 120,173,20,3,162,89,234,234,234,142,20,3,173,21,3
  37. 9210 DATA 162,3,234,234,234,142,21,3,88,96,173,11,220,170,41
  38. 9220 DATA15,24,105,48,141,67,4,138,16,4,162,16,16,2,162,1,142
  39. 9230 DATA77,4,162,32,41,16,240,2,162,49,142,66,4,173,10,220
  40. 9240 DATA170,41,15,105,48,141,70,4,138,74,74,74,74,24,105,48
  41. 9250 DATA141,69,4,173,9,220,170,41,15,105,48,141,73,4,138,74
  42. 9260 DATA74,74,74,24,105,48,141,72,4,173,8,220,105,48,141,75
  43. 9270 DATA4,169,32,141,65,4,141,76,4,141,79,4,162,15,157,24
  44. 9280 DATA4,202,208,250,169,58,141,68,4,141,71,4,169,46,141,74
  45. 9290 DATA 4,169,13,141,78,4,169,1,162,13,157,65,216,202,208,250,76,167,2
  46. 9300 DATA 120,169,49,234,141,20,3,169,234,234,141,21,3,88,96
  47. 9310 DATA 173,13,220,41,4,240,3,141,227,2,173,227,2,240,42,173,162,0
  48. 9320 DATA 106,106,106,41,12,141,32,208,41,4,141,24,212,240,11,162,5,189
  49. 9330 DATA 227,2,157,33,4,202,208,247,173,197,0,201,4,208,6,142,227,2
  50. 9340 DATA 142,24,212,76,49,234,0,1,12,1,18,13
  51.